home *** CD-ROM | disk | FTP | other *** search
- ////////////////////\\\\\\\\\\\\\\\\\\\\\\\\
- Dokumentation zu FIDO Unit FCHKOS
- \\\\\\\\\\\\\\\\\\\\////////////////////////
-
- Release 1.00
- ^^^^^^^^^^^^
-
- ========================================================================
- Autor: Matthias Tichy, 2:2440/210.14 @ Classic, Duesseldorf 15.08.1994
- 2:2433/920.14 @ Lite
- ========================================================================
-
- 1. Print :
- ------------
- Die Unit FCHKOS.PAS stellt Funktionen und Prozeduren zur Verfuegung,
- die helfen zu erkennen, welches Betriebssystem mit welcher Version
- benutzt wird.
- Dies ist eine Low Level Unit. Sie benoetigt keinerlei Routinen
- anderer Units. Mit Ausnahme der in Turbo Pascal (6.0 oder hoeher)
- Unit-Library TURBO.TPL enthaltenen Standard-Units.
-
- 2. Kurbeschreibung:
- -------------------
-
- NebenVersion ......................... enthaelt die Nebenversion
- HauptVersion ......................... enthaelt die Hauptversion
- Windows_Mode ......................... enthaelt den Windows-Modus
-
- isWindows ............................ laeuft Windows?
- isOS2 ................................ laeuft OS/2?
- isDesqView ........................... laeuft Desqview?
-
- 3. Detaillierte Beschreibung:
- -----------------------------
-
- ===============================================================
- isWindows
- ---------------------------------------------------------------
- ERSTDATUM ... 09.11.1994 LETZTE AeNDERUNG ... 09.11.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Gibt zurueck, ob Windows laeuft.
- in den Variablen HauptVersion und NebenVersion
- findet man die Versionsnummern.
- In der Variable Windows_mode wird gespeichert, ob
- der enhanced oder der standard modus am laufen ist.
-
- DEKLARATION ... isWindows : boolean;
-
- PARAMETER ... keine
-
- ERGEBNIS ... true - Windows laeuft
-
- ===============================================================
- isOS2
- ---------------------------------------------------------------
- ERSTDATUM ... 15.11.1994 LETZTE AeNDERUNG ... 15.11.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... testet ob OS/2 laeuft.
- Version in Haupt- und NebenVersion
-
- DEKLARATION ... isOS2 : boolean;
-
- PARAMETER ... keine
-
- ERGEBNIS ... true - OS/2 laeuft.
-
- ===============================================================
- isDesqView
- ---------------------------------------------------------------
- ERSTDATUM ... 15.11.1994 LETZTE AeNDERUNG ... 15.11.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... testet, ob Desqview laeuft.
- Version in Haupt- und NebenVersion
-
- DEKLARATION ... isDesqView : boolean;
-
- PARAMETER ... keine
-
- ERGEBNIS ... true - DesqView laeuft.
-
-
- 4. Beispiele:
- -------------
- ===============================================================
- isWindows, isOS2, isDesqView
- ---------------------------------------------------------------
-
- begin
- write('Betriebssystem : ');
- if isWindows then
- write('Windows ');
- else
- if isOS2 then
- write('OS/2 ')
- else
- if isDesqview then
- write('DesqView ');
- write(HauptVersion,'.',Nebenversion);
- if isWindows then
- begin
- write(' im ');
- case Windows_Mode of
- standard : write('standard');
- enhanced : write('enhanced');
- end;
- write(' Modus);
- end;
- writeln;
- end;
-
- 5. History:
- -----------
-
- Neuerungen nach Release ...
- ---------------------------
- Noch nischts :-)
-
- ========================================================================
-
- /////////////////////\\\\\\\\\\\\\\\\\\\\\\\\
- Ende der Dokumentation zur FIDO Unit FCHKOS
- \\\\\\\\\\\\\\\\\\\\\////////////////////////
-